home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGMISC / PCSSP.LZH / PC-SSP.ZIP / STATDATA.ZIP / ABSNT.FOR next >
Text File  |  1985-11-29  |  1KB  |  52 lines
  1. C
  2. C     ..................................................................
  3. C
  4. C        SUBROUTINE ABSNT
  5. C
  6. C        PURPOSE
  7. C           TEST MISSING OR ZERO VALUES FOR EACH OBSERVATION IN
  8. C           MATRIX A.
  9. C
  10. C        USAGE
  11. C           CALL ABSNT (A,S,NO,NV)
  12. C
  13. C        DESCRIPTION OF PARAMETERS
  14. C           A  - OBSERVATION MATRIX, NO BY NV
  15. C           S  - OUTPUT VECTOR OF LENGTH NO INDICATING THE FOLLOWING
  16. C                CODES FOR EACH OBSERVATION.
  17. C                1  THERE IS NOT A MISSING OR ZERO VALUE.
  18. C                0  AT LEAST ONE VALUE IS MISSING OR ZERO.
  19. C           NO - NUMBER OF OBSERVATIONS. NO MUST BE > OR = TO 1.
  20. C           NV - NUMBER OF VARIABLES FOR EACH OBSERVATION. NV MUST BE
  21. C                GREATER THAN OR EQUAL TO 1.
  22. C
  23. C        REMARKS
  24. C           NONE
  25. C
  26. C        SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED
  27. C           NONE
  28. C
  29. C        METHOD
  30. C           A TEST IS MADE FOR EACH ROW (OBSERVATION) OF THE MATRIX A.
  31. C           IF THERE IS NOT A MISSING OR ZERO VALUE, 1 IS PLACED IN
  32. C           S(J). IF AT LEAST ONE VALUE IS MISSING OR ZERO, 0 IS PLACED
  33. C           IN S(J).
  34. C
  35. C     ..................................................................
  36. C
  37.       SUBROUTINE ABSNT(A,S,NO,NV)
  38.       DIMENSION A(1),S(1)
  39. C
  40.       DO 20 J=1,NO
  41.       IJ=J-NO
  42.       S(J)=1.0
  43.       DO 10 I=1,NV
  44.       IJ=IJ+NO
  45.       IF(A(IJ)) 10,5,10
  46.     5 S(J)=0
  47.       GO TO 20
  48.    10 CONTINUE
  49.    20 CONTINUE
  50.       RETURN
  51.       END
  52.